use File::Find;
use strict;
use warnings;

my @files;

find(
	sub {
		push @files, $File::Find::name
		  if -f $File::Find::name && /\.pm$/;
	},

	@INC
);

print join "\n", @files;
